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EXECUTIVE  SUMMARY 


|  This  Validation  Summary  Report  (VSR)  summarizes  the  results 

[  and  conclusions  of  validation  testing  performed  on  the  Sie- 

>  mens  BS2000  Ada  Compiler,  Version  1.0,  using  Version  1.8  of 

the  Ada  Compiler  Validation  Capability  (ACVCl.  The  Siemens 
BS2000  Ada  Compiler  is  hosted  on  a  Siemens  7.570P  operating 
I  under  BS2000,  Version  7.6.  Programs  processed  by  this  com- 

i  oiler  may  be  executed  on  a  Siemens  7.570P  operating  under 

■  BS2000,  Version  7.6. 

f 

*  On-site  testing  was  performed  87-02-25  through  87-02-26  at 

Siemens  AG  in  D-8000  Miinchen-Neuperl  ach ,  under  the  direction 
of  the  Industrieanlagen-Betriebsgesellschaft  mbH,  Dept.  SZT 
(AVF),  according  to  Ada  Validation  Organization  (AVO)  poli¬ 
cies  and  procedures.  The  AVF  identified  2210  of  the  2399 
tests  in  ACVC  Version  1.8  to  be  processed  during  on-site 
testing  of  the  compiler.  The  19  tests  withdrawn  at  the  time 
i  of  validation  testing,  as  well  as  the  170  executable  tests 

that  make  use  of  floating-point  precision  exceeding  that 
supported  by  the  implementation,  were  not  processed.  After 
the  2210  tests  were  processed,  results  for  Class  A,  C,  D,  or 
E  tests  were  examined  for  correct  execution.  Compilation 
listings  for  Class  B  tests  were  analyzed  for  correct  diag¬ 
nosis  of  syntax  and  semantic  errors.  Compilation  and  link 
results  of  Class  L  tests  were  analyzed  for  correct  detection 
of  errors.  There  were  37  of  the  processed  tests  determined 
to  be  inapplicable.  The  remaining  2173  tests  were  passed. 


The  results  of  validation  are  summarized  in  the  following 
table : 

RESULT  CHAPTER 


2 

3 

4 

5 

6 

7 

8 

9 

10 

11  12 

14 

Passed 

102 

250 

334 

243 

161 

97 

134 

262 

124 

32  218 

216 

Fa i led 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0  0 

0 

Inapplicable 

14 

75 

86 

4 

0 

0 

5 

0 

6 

0  0 

17 

Withdrawn 

0 

5 

5 

0 

0 

1 

1 

2 

4 

0  1 

0 

TOTAL 

116 

330 

425 

247 

161 

98 

140 

264 

134 

32  219 

233 

The  AVF  concludes  that  these  results 
conformity  to  ANSI/MIL-STD-1815A  Ada. 

demonstrate 

acceptable 
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CHAPTER  1 


INTRODUCTION 

/" 

This  Validation  Summary  Report  VSR v  describes  the  extent  to 
which  a  specific  Ada  compiler  conforms  to  the  Ada  Standard, 
ANSI-/MIL-STD—  1 81-5A*. —  This  report  explains  all  technical 
terms  used  within  it  and  thoroughly  reports  the  results  of 
testing  this  compiler  using  the  Ada  Compiler  Validation 
Capability  '^-AGVC)'.  An  Ada  compiler  must  be  implemented 
according  to  the  Ada  Standard,  and  any  implementation- 
dependent  features  must  conform  to  the  requirements  of  the 
Ada  Standard.  The  Ada  Standard  must  be  implemented  in  its 
entirety,  and  nothing  can  be  implemented  that  is  not  in  the 
Standard.  x 

Even  though  all  validated  Ada  compilers  conform  to  the  Ada 
Standard,  it  must  be  understood  that  some  differences  do 
exist  between  implementations.  The  Ada  Standard  permits 
some  implementation  dependencies  --  for  example,  the  maximum 
length  of  identifiers  or  the  maximum  values  of  integer 
types.  Other  differences  between  compilers  result  from 
characteristics  of  particular  operating  systems,  hardware, 
or  implementation  strategies.  All  of  the  dependencies 
observed  during  the  process  of  testing  this  compiler  are 
given  in  this  report.. 


The  information  in  this  report  is  derived  from  the  test 
results  produced  during  validation  testing.  The  validation 
process  includes  submitting  a  suite  of  standardized  tests, 
the  ACVC,  as  inputs  to  an  Ada  compiler  and  evaluating  the 
results. ^The  purpose  of  validating  is  to  ensure  conformity 
of  the  compiler  to  the  Ada  Standard  by  testing  that  the  com¬ 
piler  properly  implements  legal  language  constructs  and  that 
it  identifies  and  rejects  illegal  language  constructs.  The 
testing  also  identifies  behavior  that  is  implementation 
dependent  but  permitted  by  the  Ada  Standard.  Six  classes  of 
tests  are  used.  These  tests  are  designed  to  perform  checks 
at  compile  time,  at  link  time,  and  during  execution. 


. '  .  ■ 


1.1  PURPOSE  OF  THIS  VALIDATION  SUMMARY  REPORT 


! 

~Tiis  VSR  documents  the 
performed  on  an  Ada 
the  following  purposes 


results  of  the  validation  testing 
compiler.  Testing  was  carried  out  for 


To  attempt  to  identify  any  language  constructs  sunoorted 
by  the  compiler  that  do  not  conform  to  the  Ada  Standard 


To  attempt  to  identify  any  unsupported  language  con¬ 
structs  required  by  the  Ada  Standard 

To  determine  that  the  implementation-dependent  behavior 
is  allowed  by  the  Ada  Standard 


Test  i 

ng  of  this 

compi ler 
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licies  and 

procedure 

Organ 

ization  (AVO) 
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at  Siemens  AG  in 


AVF  accord  ing 
Ada  Validation 
cted  from  87- 
D-8000  Miinchen- 


1.2  USE  OF  THIS 


VALIDATION  SUMMARY  REPORT 


Consistent  with  the  national  laws  of  the  originating  coun¬ 
try,  the  AVO  may  make  full  and  free  public  disclosure  of 
this  report.  In  the  United  States,  this  is  provided  in 
accordance  with  the  "Freedom  of  Information  Act"  (5  U.S.C. 
/ 552).  The  results  of  this  validation  apply  only  to  the  com¬ 
puters,  operating  systems,  and  compiler  versions  identified 
in  this  report. 


The  organizations  represented  on  the  signature  page  of  this 
report  do  not  represent  or  warrant  that  all  statements  set 
forth  in  this  report  are  accurate  and  complete,  or  that  the 
subject  compiler  has  no  nonconformities  to  the  Ada  Standard 
other  than  those  presented.  Copies  of  this  report  are  avail¬ 
able  to  the  public  from: 


Ada  Information  Clearinghouse 
Ada  Joint  Program  Office 
OUSDRE 

The  Pentagon,  Rm  3D-139  (Fern  Street) 

Washington  DC  20301-3081 

or  from: 

Industr iean lagen-Betr i ebsgese 1 1 scha f t  mbH,  Dept.  SZ 

Einste instrasse  20 

D-8012  Ottobrunn 

Federal  Republic  of  Germany 


Questions  regarding  this  retort  or  the  validation  test 
results  should  be  directed  to  the  AVF  listed  above  or  to: 

Ada  Validation  Organization 
Institute  for  Defense  Analyses 
1801  North  Beauregard  Street 
Alexandria  VA  22311 


1.3  REFERENCES 

1.  Reference  Manual  for  the  Ada  Proqramminq  Lanquaqe, 
ANSI ,/MIL- STD-  1 8 1 5A ,  FEB  198  3“ 

2.  Ada  Validation  Orqanization:  Policies  and  Procedures, 
MITRE  Corporation,  JUN  1982,  PB  83-110601 . 

3.  Ada  Compiler  Validation  Capabil ity  Implementers ' 
Guide,  SofTech,  Inc.,  DEC  1984. 


1.4  DEFINITION  OF  TERMS 


ACVC 


The  Ada  Compiler  Validation  Capability.  A  set 
of  programs  that  evaluates  the  conformity  of  a 
compiler  to  the  Ada  language  specification, 
ANS I /MIL-STD- 181 5 A . 


Ada  Standard  ANSI/MIL-STD-1815A,  February  1983. 

Applicant  The  agency  requesting  validation. 

AVF  The  Ada  Validation  Facility.  In  the  context  of 

this  report,  the  AVF  is  responsible  for  con¬ 
ducting  compiler  validations  according  to 
established  policies  and  procedures. 

AVO  The  Ada  Validation  Organization.  In  the  con¬ 

text  of  this  report,  the  AVO  is  responsible 
for  setting  procedures  for  compiler  valida¬ 
tions  . 


Compi ler 


Failed  test 


A  processor  for  the  Ada  language.  In  the  con¬ 
text  of  this  report,  a  compiler  is  any 
language  processor,  including  cross-compilers, 
translators,  and  interpreters. 

A  test  for  which  the  compiler  generates  a 
result  that  demonstrates  nonconformity  to  the 
Ada  Standard. 


vwvy-.  /-A  -’.  AA  "V •’* w\  A  A  A  a*\  A  a*' .  a 
>  A  A  A,V  .  »  >\  ,N  »%  .V.V  A  Au  *  >  .  - .V  «  «  « 


.-a 


The  corrmuter  on  which  the  conmler  resides. 


Mos  t 


A  test  that  uses  features  of  the  language  that 
a  compiler  is  not  required  to  support  or  may 
legitimately  support  in  a  way  other  than  the 
one  exnected  by  the  test  . 

Passed  test  A  test  for  which  a  compiler  qenerat.es  the 
expected  result. 

Tarqet  The  comnuter  for  which  a  compiler  qonerates 

code . 


Inane1 icabl e 
test 


Test  A  program  that  checks  a  compiler's  conformity 

regarding  a  particular  feature  or  features  to 
the  Ada  Standard.  In  the  context  of  this 
report,  the  term  is  used  to  designate  a  single 
test,  which  may  comprise  one  or  more  files. 

Withdrawn  A  test  found  to  be  incorrect  and  not  used  to 

test  check  conformity  to  the  Ada  language  specifi¬ 

cation.  A  test  may  be  incorrect  because  it 
has  an  invalid  test  objective,  fails  to  meet 
its  test  objective,  or  contains  illeqal  or 
erroneous  use  of  the  language. 


1.5  AC VC  TEST  CLASSES 

Conformity  to  the  Ada  Standard  is  measured  using  the  AC'7C. 
The  ACVC  contains  both  legal,  and  illegal  Ada  programs  struc¬ 
tured  into  six  test  classes:  A,  B,  C,  D,  E,  and  L .  The  first 
letter  of  a  test  name  identifies  the  class  to  which  it 
belongs.  Class  A,  C,  D,  and  E  tests  are  executable,  and  spe¬ 
cial  program  units  are  used  to  report  their  results  during 
execution.  Class  B  tests  are  expected  to  produce  compilation 
errors.  Class  L  tests  are  expected  to  produce  link  errors. 

Class  A  tests  check  that  legal  Ada  programs  can  be  success¬ 
fully  compiled  and  executed.  However,  no  checks  are  per¬ 
formed  during  execution  to  see  if  the  test  objective  has 
been  met.  For  example,  a  Class  A  test  checks  that  reserved 
words  of  another  language  (other  than  those  already  reserved 
in  the  Ada  language)  are  not  treated  as  reserved  words  by  an 
Ada  compiler.  A  Class  A  test  is  passed  if  no  errors  are 
detected  at  compile  time  and  the  program  executes  to  produce 
a  PASSED  message. 

Class  B  tests  check  that  a  compiler  detects  illegal  language 
usage.  Class  B  tests  are  not  executable.  Each  test  in  this 
class  is  compiled  and  the  resulting  compilation  listing  is 
examined  to  verify  that  every  syntax  or  semantic  error  in 
the  test  is  detected.  A  Class  B  test  is  passed  if  every 


I 

’ 


illegal  construct  that  it  contains  is  detected  by  the  oom- 
oi  i  e  r  . 

Class  C  tests  check  that  leqal  Ada  programs  can  be  correctly 
compiled  and  executed.  Each  Class  C  test  is  sel  f-checkinq 
and  nroduces  a  PASSED,  FAILED,  or  MOT  APPLICABLE  messaqe 
indicatinq  the  result  when  it  is  executed. 


Class  I)  tests  check  the  compilation  a 
of  a  conpi ler.  Since  there  are  n 
placed  on  a  compiler  by  the  Ada  Stand 
for  example,  the  number  of  ide 
compilation  or  the  number  of  units  in 
oiler  may  refuse  to  compile  a  Clas 
conforming  compiler.  Therefore,  if  a 
compile  because  the  capacity  of  th 
the  test  is  classified  as  inapplicabl 
compiles  successfully,  it  is  sel  f- 
PASSED  or  FAILED  message  during  execu 


nd  execution 
o  capacity  r 
ard  for  some 
ntifiers  per 
a  library 
s  D  test  and 
Class  D  tes 
e  compiler  i. 
e.  If  a  Cla 
checking  and 
t  ion  . 


c  a  pa  c  i  t  i  e  s 
equ  i.  r  ement  s 
parameters 
mi t ted  in  a 
—  a  corn- 
still  be  a 
t  fails  to 
s  exceeded, 
ss  D  test 
produces  a 


Each  Class  E  test  is  se 1 f -check ing  and  produces  a  NOT  APPLI¬ 
CABLE,  PASSED,  or  FAILED  message  when  it  is  compiled  and 
executed.  However,  the  Ada  Standard  permits  an  implementa¬ 
tion  to  reject  programs  containing  some  features  addressed 
by  Class  E  tests  during  compilation.  Therefore,  a  Class  E 
test  is  passed  by  a  compiler  if  it  is  compiled  successfully 
and  executes  to  produce  a  PASSED  message,  or  if  it  is 
rejected  by  the  compiler  for  an  allowable  reason. 

Class  L  tests  check  that  incomplete  or  illeqa1  Ada  p'ograms 
involving  multiple,  separately  compiled  units  are  d  .ected 
and  not  allowed  to  execute.  Class  L  tests  are  compiled 
separately  and  execution  is  attempted.  A  Class  L  test 
passes  if  it  is  rejected  at  link  time  --  that  is,  an  attempt 
to  execute  the  main  program  must  generate  an  error  messaqe 
before  any  declarations  in  the  main  program  or  any  units 
referenced  by  the  main  program  are  elaborated. 

Two  library  units,  the  package  REPORT  and  the  procedure 
CHECK_FILE,  suoport  the  self-checking  features  of  the  exe¬ 
cutable  tests.  The  package  REPORT  provides  the  mechanism  by 
which  executable  tests  report  PASSED,  FAILED,  or  NOT  APPLI¬ 
CABLE  results.  It  also  provides  a  set  of  identity  functions 
used  to  defeat  some  compiler  optimizations  allowed  by  the 
Ada  Standard  that  would  circumvent  a  test  objective.  The 
procedure  CHECK_FILE  is  used  to  check  the  contents  of  text 
files  written  by  some  of  the  Class  C  tests  for  chapter  14  of 
the  Ada  Standard.  The  operation  of  these  units  is  checked  by 
a  set  of  executable  tests.  These  tests  oroduce  messages  that 
are  examined  to  verify  that  the  units  are  operating 
correctly.  If  these  units  are  not  operating  correctly,  then 
the  validation  is  not  attempted. 


The  text  of  the  tests  in  the  ACVC  follow  conventions  that 
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viv 
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are  intended  to  ensure  that  the  tests  are  reasonably  port¬ 
able  without  modification.  For  examnle,  the  tests  make  use 
of  only  the  basic  set  of  55  characters,  contain  lines  with  a 
maximum  length  of  72  characters,  use  small  numeric  values, 
and  place  features  that  may  not  be  supported  by  all  imple¬ 
mentations  in  separate  tests.  However,  some  tests  contain 
values  that  require  the  test  to  be  customized  according  to 
impl ementa t i on-soec i f i c  values  —  for  examnle,  an  illegal 
file  name.  A  list  of  the  values  used  for  this  validation  is 
provided  in  Appendix  C. 

A  compiler  must  correctly  process  each  of  the  tests  in  the 
suite  and  demonstrate  conformity  to  the  Ada  Standard  by 
either  meeting  the  pass  criteria  given  for  the  test  or  by 
showing  that  the  test  is  inapplicable  to  the  implementation. 
Any  test  that  was  determined  to  contain  an  illegal  language 
construct  or  an  erroneous  language  construct  is  withdrawn 
from  the  ACVC  and,  therefore,  is  not  used  in  testing  a  com¬ 
piler.  The  tests  withdrawn  at  the  time  of  validation  are 
given  in  Appendix  0. 
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CHAPTER  2 


CONFIGURATION  INFORMATION 


2.1  CONFIGURATION  TESTED 

The  candidate  compilation  system  for  this  validation  was 
tested  under  the  following  configuration: 

Compiler:  Siemens  BS2000  Ada  Comoiler,  Version  1.0 

AC VC  Version:  1.8 

Certificate  Expiration  Date:  88-05-04 


Host  Computer: 


Machine : 


Siemens  7.570P 


Operating  System:  BS2000 

Version  7.6 


Memory  Size: 


Target  Computer: 


Machine : 


7  MB  virtual/32  MB  real 


Siemens  7 . 570P 


Operating  System:  BS2000 

Version  7 . 6 


Memory  Size : 


7  MB  virtual/32  MB  real 


The  disk  system  of  the  host  and  target  computer  consisted  of 
24  Siemens  disks  D3475  with  757  MB  each  and  3  Siemens  disks 
D3460  with  267  MB  each. 


2.2  IMPLEMENTATION  CHARACTERISTICS 

One  of  the  purposes  of  validating  compilers  is  to  determine 
the  behavior  of  a  compiler  in  those  areas  of  the  Ada  Stan¬ 
dard  that  permit  implementations  to  differ.  Class  D  and  E 
tests  specifically  check  for  such  implementation  differ¬ 
ences.  However,  tests  in  other  classes  also  characterize  an 
implementation.  This  compiler  is  characterized  by  the  fol¬ 
lowing  interpretations  of  the  Ada  Standard: 


Canac  ities  . 

""he  compiler  correctly  processes  tests  containinq  loon 
statements  nested  to  65  levels,  block  statements  nested 
to  65  levels,  and  recursive  procedures  separately  com¬ 
piled  as  subunits  nested  to  17  levels.  It  correctly 
processes  a  compilation  containinq  773  variables  in  the 
same  declarative  nart.  (See  tests  D5SA03A..II  (0  tests), 
05600)13,  D64005E..G  (3  tests),  and  D29002K .  ) 


Universal  integer  calculations. 

An  implementation  is  allowed  to  reject  universal  integer 
calculations  having  values  that  exceed  SYSTEM. MAX  INT. 
This  implementation  does  not  reject  such  calculations  and 
processes  then  correctly.  (See  tests  D4A002A,  D4A00213, 
D4A004A,  and  D4A004B.) 


Predefined  types. 

This  implementation  supports  the  additional  predefined 
type  SH0RT_ INTEGER  in  the  package  STANDARD.  (See  tests 
B86001C  and  B86001D. ) 


Based  literals. 

An  implementation  is  allowed  to  reject  a  based  literal 
with  a  value  exceeding  SYSTEM . MAX_INT  during  compilation, 
or  it  may  raise  NUMERIC_ERROR  or  CONSTRAINT_ERROR  during 
execution.  This  implementation  raises  CONSTRAINT  ERROR 
during  execution.  (See  test  E24101A.) 


Array  types. 

An  implementation  is  allowed  to  raise  NUMERIC_ERROR  or 
CONSTRAINT_ERROR  for  an  array  having  a  'LENGTH  that 
exceeds  STANDARD . INTEGER ' LAST  and/or  SYSTEM . MAX_INT . 

A  packed  BOOLEAN  array  having  a  'LENGTH  exceeding 
INTEGER 'LAST  raises  NUMERIC  ERROR  when  the  array  type  is 
declared.  (See  test  C52103X.T 

A  packed  two-dimensional  BOOLEAN  array  with  more  than 
INTEGER' LAST  components  raises  NUMERIC_ERROR  when  the 
array  type  is  declared.  (See  test  C52104Y.) 

A  null  array  with  one  dimension  of  length  greater  than 
INTEGER' LAST  may  raise  NUMERIC_ERROR  or  CONSTRAINT_ERROR 
either  when  declared  or  assigned.  Alternatively,  an 
implementation  may  accept  the  declaration.  However, 


] enqths  must  match  in  array  slice  assignments.  This 
implementation  raises  NUMERIC  ERROR  when  the  array  type 
is  declared.  (See  test  E52103Y.T 

In  assigning  one-dimensional  array  types,  the  expression 
appears  to  be  evaluated  in  its  entirety  before 
CONSTRATN'T_ERROR  is  raised  when  checking  whether  the 
expression's  subtyne  is  compatible  with  the  target's  sub- 
type.  In  assigning  two-dimensional  array  types,  the 
expression  does  not  appear  to  be  evaluated  in  its 
entirety  before  CONSTRAINT_ERROR  is  raised  when  checking 
whether  the  expression's  subtype  is  compatible  with  the 
target's  subtype.  (See  test  C52013A.) 


Discriminated  types. 

During  compilation,  an  implementation  is  allowed  to 
either  accept  or  reject  an  incomplete  type  with  discrim¬ 
inants  that  is  used  in  an  access  type  definition  with  a 
compatible  discriminant  constraint.  This  implementation 
accepts  such  subtype  indications.  (See  test  E38104A.) 

In  assigning  record  types  with  discriminants,  the  expres¬ 
sion  appears  to  be  evaluated  in  its  entirety  before 
CONSTRAINT_ERROR  is  raised  when  checking  whether  the 
expression's  subtype  is  compatible  with  the  target's  sub- 
type.  (See  test  C52013A.) 


Aggregates  . 

In  the  evaluation  of  a  multi-dimensional  aggregate,  all 
choices  appear  to  be  evaluated  before  checking  against 
the  index  type.  (See  tests  C43207A  and  C43207B.) 

In  the  evaluation  of  an  aggregate  containing  subaggre¬ 
gates,  all  choices  are  not  evaluated  before  being  checked 
for  identical  bounds.  (See  test  E43212B.)  All  choices  are 
evaluated  before  CGNSTRAINT_ERROR  is  raised  if  a  bound  in 
a  nonnull  range  of  a  nonnull  aggregate  does  not  belong  to 
an  index  subtype.  (See  test  E43211B.) 

Functions  . 

An  implementation  may  allow  the  declaration  of  a  parame¬ 
terless  function  and  an  enumeration  literal  having  the 
same  profile  in  the  same  immediate  scope,  or  it  may 
reject  the  function  declaration.  If  it  accepts  the  func¬ 
tion  declarations,  the  use  of  the  enumeration  literal's 
identifier  denotes  the  function.  This  implementation 
rejects  the  declarations.  (See  test  E66001D.) 


35B5! 
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Renresentation  clauses 


The  Ada 
support 
clause  i 
reject 
is  not  c 
in  test 
rejects 
for  co 
represen 
tests  C5 


Pragma  s 


Standard  does  not  require  an  imp 
representation  clauses.  If  a 
s  not  supported,  then  the  imple 
it.  While  the  operation  of  represe 
necked  by  Version  1.0  of  the  ACVC, 
ing  other  language  features.  This 
'SIZE  and  ' STORAGE_SIZE  for  tasks, 
1  lections,  and  'SMALL  clause 
tation  clauses  appear  not  to  be  su 
5  B 1 6 A ,  C37B62A,  C07B62B,  C87B62C, 


1  ementa  tion  to 
representation 
mentation  must 
ntation  clauses 
they  are  used 
imp! ementation 
' STORAGE_5 1 Z  E 
s.  Enumeration 
ppor ted  .  ( See 

and  BC1002A. ) 


The  pragma  INLINE  is  not  supported  for  procedures.  The 
pragma  INLINE  is  not  supported  for  functions.  (See  tests 
CA3004E  and  CA3004F.) 


Input/output . 

The  package  SEQUENT IAL_I0  cannot  be  instantiated  with 
unconstrained  array  types  and  record  types  with  discrim¬ 
inants.  The  package  DIRECT_I0  cannot  be  instantiated 
with  unconstrained  array  types  and  record  types  with 
discriminants  without  defaults.  (See  tests  AE2101C, 
AE2101H,  CE2201D,  CE2201E,  and  CE2401D. ) 

An  existing  text  file  can  be  opened  in  0UT_FILE  mode,  can 
be  created  in  0UT_FILE  mode,  and  can  be  created  in 
IN_FILE  mode.  (See  test  EE3102C.) 

More  than  one  internal  file  can  be  associated  with  each 
external  file  for  text  I/O  for  reading  only.  (See  tests 
CE3111A. .E  (5  tests)  .  ) 

More  than  one  internal  file  can  be  associated  with  each 
external  file  for  sequential  I/O  for  reading  only.  (See 
tests  CE2107A..F  (6  tests).) 

More  than  one  internal  file  can  be  associated  with  each 
external  file  for  direct  I/O  for  reading  only.  (See  tests 
CE2107A. .F  (6  tests) . ) 

Temporary  sequential  files  are  given  a  name.  Temporary 
direct  files  are  given  a  name.  Temporary  files  given 
names  are  deleted  when  they  are  closed.  (See  tests 
CE2108A  and  CE21 08C. ) 


Generics  . 


Generic  subprogram  declarations  and  bodies  can  be  com¬ 
piled  in  separate  compilations.  (See  test  CA2009F.)  Gen¬ 
eric  package  declarations  and  bodies  can  be  compiled  in 
separate  compilations.  (See  tests  CA2009C  and  BC3205D.) 


CHAPTER  3 


TEST  INFORMATION 


3.1  TEST  RESULTS 


Version  1.8  of  the  AC VC  contains  2399  tests.  When  validation 
testing  of  Siemens  8S2000  Ada  Compiler  was  performed,  19 
tests  had  been  withdrawn.  The  remaining  2380  tests  were 
notentiallv  applicable  to  this  validation.  The  AVF  deter¬ 
mined  that  207  tests  were  inapplicable  to  this  implementa¬ 
tion,  and  that  the  2173  applicable  tests  were  passed  by  the 
implementation.  There  were  no  failed  tests. 


The  AVF  concludes  that  the  testing  results  demonstrate 
acceptable  conformity  to  the  Ada  Standard. 


3.2  SUMMARY  OF  TEST  RESULTS  BY  CLASS 


RESULT 


TEST  CLASS 
BCD 


TOTAL 


Passed 


67  864  1170 


44  2173 


Failed 


0  0 


Inapplicable  2  3  198 


2  207 


Withdrawn 


0  19 


TOTAL 


69  874  1380 


46  2399 


3.3  SUMMARY  OF  TEST  RESULTS  BY  CHAPTER 


RESULT 


CHAPTER  TOTAL 

2  3  4  5  6  7  8  9  10  11  12  14 


Passed 


102  250  334  243  161  97  134  262  124  32  218  216  2173 


Failed 


000000000000 


Inapplicable  14  75  86  4  0  0  5  0  6  0  0  17  207 


Withdrawn 


055001124010  19 


TOTAL 


116  330  425  247  161  98  140  264  134  32  219  233  2399 


k 


ft 


iWW 


3-4  WITHDRAWN  TESTS 


The  following  19  tests  were  withdrawn  from  AC VC  Version  1.0 
at  the  time  of  this  validation: 

C32114A  C 4  1 4  0 4 A  B74101B 

B3  3203C  3^511f.A  C87B50A 

C34018A  C43000A  C92005A 

C  3  5  9  0  4 A  B49006A  C940ACA 

B 3 7 4 0 1 A  B4A010C  CA3005A..D  (4  tests) 

BC3204C 

See  Appendix  D  for  the  reason  that  each  of  these  tests  was 
withdrawn . 


3.5  INAPPLICABLE  TESTS 

Some  tests  do  not  apply  to  all  compilers  because  they  make 
use  of  features  that  a  compiler  is  not  required  by  the  Ada 
Standard  to  support.  Others  may  depend  on  the  result  of 
another  test  that  is  either  inapplicable  or  withdrawn.  For 
this  val idation  attempt,  207  tests  were  inapplicable  for  the 
reasons  indicated: 


C 3400 IE,  B52004D,  B55B09C,  and  C55B07A  use  LONG_ INTEGER 
which  is  not  supported  by  this  compiler. 

C34001F  and  C35702A  use  SHORT_FLOAT  which  is  not  sup¬ 
ported  by  this  compiler. 

C34001G  and  C35702B  use  LONG  FLOAT  which  is  not  supported 
by  this  compiler. 

C55B16A  makes  use  of  an  enumeration  representation  clause 
containing  noncontiguous  values  which  is  not  supported  by 
this  compiler. 

B86001DT  requires  a  predefined  numeric  type  other  than 
those  defined  by  the  Ada  language  in  package  STANDARD. 
There  is  no  such  type  for  this  implementation. 

C86001F  redefines  package  SYSTEM,  but  TEXT_IO  is  made 
obsolete  by  this  new  definition  in  this  implementation 
and  the  test  cannot  be  executed  since  the  package  REPORT 
is  dependent  on  the  package  TEXT_I0. 

C87B62A..C  (3  tests)  use  length  clauses  which  are  not 
supported  by  this  compiler.  The  length  clause  is  rejected 
during  compilation. 


nro- 


CA3004E,  EA3001C,  and  EA3004A  use  I  MI. IMP  pragma  for 

cedures  which  is  not  sunn  rted  by  th’s  compiler. 

CA3004F,  EA3004D,  and  LA  30  04  B  use  INLINE  pragma  for  func¬ 
tions  which  is  not  supported  by  this  compiler. 

AE2101C,  CE2201D,  and  CE2201E  use  an  instantiation  of 
package  SEQUENT  T  AT.  IO  with  unconstrained  array  types 
which  is  not  supported  by  this  compiler. 

AE2101H  and  CE2401D  use  an  instantiation  of  package 
DIRECT  10  with  unconstrained  array  types  which  is  not 
supported  by  this  compiler. 

CE2107B..E  (4  tests).  CE2110B,  CE2111D,  CE2111H, 

CE3111B..E  (A  tests),  and  CF.3114B  are  inapplicable 
because  multiple  internal  files  cannot  be  associated  with 
the  same  external  file.  The  proper  exception  is  raised 
when  multiple  access  is  attempted. 

The  following  170  tests  require  a  floating-point  accuracy 
that  exceeds  the  maximum  of  15  supported  by  the  implemen¬ 
ts  tion : 

C24 1 l 3 L . . Y  (14  tests ) 

C35705L. .Y  (14  tests) 

C35706L. . Y  (14  tests ) 

C35707L. . Y  (14  tests) 

C35700L.  . Y  (14  tests  ) 

C35302L. . Y  (14  tests) 

C45241L. .Y  ( 14  tests) 

C45321L. .Y  (14  tests) 

C45421L. .Y  (14  tests  ) 

C45424L. .Y  (14  tests) 

C45521L..Z  (15  tests) 

C45621L..Z  (15  tests) 


3.6  SPLIT  TESTS 

If  one  or  more  errors  do  not  appear  to  have  been  detected  in 
a  Class  B  test  because  of  compiler  error  recovery,  then  the 
test  is  split  into  a  set  of  smaller  tests  that  contain  the 
undetected  errors.  These  splits  are  then  compiled  and  exam¬ 
ined.  The  splitting  process  continues  until  all  errors  are 
detected  by  the  compiler  or  until  there  is  exactly  one  error 
per  split.  Any  Class  A,  Class  C,  or  Class  E  test  that  can¬ 
not  be  compiled  and  executed  because  of  its  size  is  split 
into  a  set  of  smaller  subtests  that  can  be  processed. 
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Sol  its  were  required  for  3  Class  B  tests. 

B2200  3A-S1  B67  001C-S5 
B67001C-S1  B67001C-S6 
B67001C-S2  B67001C-S7 
B67001C-S3  B95032A-S1 
B67001C-S4  B95032A-S2 


3-7  ADDITIONAL  TESTING  INFORMATION 
3.7.1  Prevalidation 

Prior  to  validation,  a  set  of  test  results  for  ACVC  Version 
1.8  produced  by  the  Siemens  BS2000  Ada  Compiler  was  submit¬ 
ted  to  the  AVF  by  the  applicant  for  review.  Analysis  of 
these  results  demonstrated  that  the  compiler  successfully 
passed  all  applicable  tests,  and  the  compiler  exhibited  the 
expected  behavior  on  all  inapplicable  tests. 


3.7.2  Test  Method 

Testing  of  the  Siemens  BS2000  Ada  Compiler  using  ACVC  Ver¬ 
sion  1.8  was  conducted  on-site  by  a  validation  team  from  the 
AVF.  The  configuration  consisted  of  a  Siemens  7.570P  operat¬ 
ing  under  BS2000,  Version  7.6  with  the  target  being  the  same 
machine . 

The  body  of  the  package  REPORT  was  modified  so  that  a  time 
stamp  for  each  executed  test  will  be  added. 

A  magnetic  tape  containing  all  tests  except  for  withdrawn 
tests  and  tests  requiring  unsupported  floating-point  preci¬ 
sions  was  taken  on-site  by  the  validation  team  for  process¬ 
ing.  Tests  that  make  use  of  implementation-specific  values 
were  customized  before  being  written  to  the  magnetic  tape. 
Tests  requiring  splits  during  the  prevalidation  testing  were 
included  in  their  split  form  on  the  magnetic  tape  except  for 
B95032A  which  was  checked  by  the  validation  team. 

The  contents  of  the  magnetic  tape  were  loaded  directly  onto 
the  host  computer  using  the  BS2000  utility  SYSUPD. 

After  the  test  files  were  loaded  to  disk,  the  full  set  of 
tests  was  compiled  on  the  Siemens  7.570P,  and  all  executable 
tests  were  linked  and  executed  on  the  target  (the  same 
machine ) . 

The  compiler  was  tested  using  command  scripts  provided  by 
Siemens  AG  and  reviewed  by  the  validation  team. 
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All  tests  were  run  using  these  command  scrints .  The  tests 
CE3201A,  CE  3  2  0  3 \ ,  CE3301B,  CF.3402B,  CE3405B,  CE3409F, 
CE3410F,  and  CE3412C  whose  self-documenting  special  messages 
to  STANDARD  OUTPUT  require  a  manual  check  were  also  run  in 
batch  mode.  The  listings  produced  of  these  eight  tests  were 
printed  on  paper  by  a  specific  system  command  procedure. 

The  following  options  were  in  effect  for  testing: 


Option 

___ 

4.1  2 


Tests  were 
using  a 
access  and 
compi ler 
jobs  ran  s 
pi lers . 
were  captu 
listings 
archived . 


Ef  feet 

Suppress  end  messages  of  the  compiler 
Check  if  instantiations  are 
necessary  at  link  time 

Suppress  listing  by  Ada  linker  of  all 
linked  Ada  compilation  units 


compiled,  linked,  and  executed  (as  appropriate) 
single  host  computer.  In  order  to  minimize  disk 
thereby  enhance  throughput,  exact  copies  of  the 
resided  on  three  disk  units.  Up  to  eleven  batch 
imultaneously  each  using  one  of  the  three  Ada  corn¬ 
iest  output,  compilation  listings,  and  job  logs 
red  on  magnetic  tape  and  archived  at  the  AVF .  The 
examined  on-site  by  the  validation  team  were  also 


3.7.3  Test  Site 

The  validation  team  arrived  at  Siemens  AG  in  D-8000 
Munchen-Meuper lach  on  87-02-25  and  departed  after  testing 
was  completed  on  87-02-26. 
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APPENDIX  A 


DEC EAR AT I ON  OF  CONFORMANCE 

Compiler  Implementer;  Siemens  AG,  Munchen 

Ada  Validation  Facility:  IABG  m.b.H.,  Ottobrunn 

Ada  Compiler  Validation  Capability  (ACVC)  Version:  18 

Base  Configuration 

Base  Compiler  Name:  Siemens  BS2000  Ada  Compiler  Version:  10 

Host  Architecture  ISA  Siemens  7. 570P  OS&VER  No:  BS2000/V7.6 

Target  Architecture  ISA:  Siemens  7. 570P  OS&VER  No:  BS2000  /  V7.6 

Derived  Compiler  Registration 

Derived  Compiler  Name:  Siemens  BS2000  Ada  Compiler  Version:  1.0 

(same  as  above) 

Host  Architecture  ISA:  7.531,7.536,7.541,7.551, 

7.530,7.550,7.560, 

7.561,7.571,7.550, 

7.560,7.570,7.580.7.590, 

7.700 

OS&VER  No:  BS2000  /  V7.5,  V7.6,  V8.0.  V8.5.  V9.0 
Target  Architecture  ISA:  same  as  host 

OS&VER  No:  same  as  host 

The  above-mentioned  compiler  executes  properly  without  any  modifications  on 
each  of  these  host  architectures  in  combination  with  each  of  the  BS2000-versions 
listed  above. 


Implementer's  Declaration 

I,  the  undersigned,  representing  Siemens  A.G.  have  implemented  no  deliberate 
extensions  to  the  Ada  Language  Standard  ANSI/MIL-STD-1815A  in  the  compiler 
listed  in  this  declaration.  I  declare  that  Siemens  A.G. is  the  owner  of  record  of  the 
Ada  language  compiler  listed  above  and,  as  such,  is  responsible  for  maintaining 
said  compiler  in  conformance  to  ANSI/MIL-STD-181 5A.  All  certificates  and 
registrations  for  Ada  language  compilers  listed  in  this  declaration  shall  be  made 
only  in  the  owner's  corporate  name. 


Siemens  Aktiengesellschaft 
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Owner’s  Declaration 

I,  the  undersigned,  representing  Siemens  A.G.  take  full  responsibility  for 
implementation  and  maintenance  of  the  Ada  compiler  listed  above,  and  agree 
to  the  public  disclosure  of  the  final  Validation  Summary  Report.  I  further  agree 
to  continue  to  comply  with  the  Ada  trademark  policy,  as  defined  by  the  Ada 
Joint  Program  Office.  I  declare  that  all  of  the  Ada  language  compilers  listed,  and 
their  host/target  performance  are  in  compliance  with  the  Ada  Languages 
Standard  ANSI/MIL-STD-181 5A.  I  have  reviewed  the  Validation  Summary  Report 
for  the  compiler  and  concur  with  the  contents. 


Siemens  Aktiengesellschaft 
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APPENDIX  n 

APPENDIX  F  OF  THE  Ada  STANDARD 


The  only  allowed  i  rrtpl  ementa  t  i  on  donendenc  i  es  correspond  to 
impl emen t a t i on-depend en t  pragmas,  to  certain  machine- 
dependent  conventions  as  mentioned  in  chapter  13  of  MIL- 
STD-1815A,  and  to  certain  al lowed  restrictions  on  represen¬ 
tation  clauses.  The  implementation-dependent  characteristics 
of  the  Siemens  BS2000  Ada  Compiler,  Version  1.0,  are 
described  in  the  fol lowinq  sections  which  discuss  topics  in 
Appendix  F  of  the  Ada  Language  Reference  Manual  (ANSl/MIL- 
STD-1815A).  Implementation-specific  portions  of  the  package 
STANDARD  are  as  follows: 


package  STANDARD  is 

type  INTEGER  is  range  -2147_483_647  ..  2_147_483_647 ; 

type  SHORT_INTEGER  is  range  -32768  ..  32767; 

type  FLOAT  is  digits  15  range  -2#1.0#E212  ..  2ftl.0#E212; 

type  DURATION  is  delta  2ftl.0ftE-14  range  -131071.0  ..  131071.0; 
—  DURATION  1  SMALL  =  2 f{  l  .  Oft E- 1  4  . 

end  STANDARD; 


Impl emen tat ion -dependent  Characteristics 

This  appendix  summarizes  all  implementation-dependent 

characteristics  of  the  Siemens  BS2000  Ada  Compiler.  It 

describes : 

(1)  The  form,  allowed  places,  and  effect  of  every 
implementation-dependent  pragma. 

(2)  The  name  and  the  type  of  every  implementation-dependent 
attribute . 

(3)  The  specification  of  the  package  SYSTEM. 

(4)  The  list  of  all  restrictions  on  representation  clauses. 

(5)  The  conventions  used  for  any  implementation-generated 
name  denoting  implementation-dependent  components. 

(6)  The  interpretation  of  expressions  that  appear  in  address 
clauses,  including  those  for  interrupts. 


o 
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(7)  Any  restriction  on  unchecked  conversions. 

(8)  Any  implementation-dependent  characteristics 
inout-output  packages . 


1.  Implementation-dependent  Pragmas 

'There  are  no  implementation-dependent  nraqmas. 

'The  only  language  name  accepted  by  pragma  INTERFACE  is 
ASSEMBLER.  The  only  priority  accepted  by  pragma  PRIORITY  is 
represented  by  an  expression  of  the  static  value  0  (cf.  the 
definition  of  the  subtype  PRIORITY  in  package  SYSTEM) . 


2.  Implementation-dependent  Attributes 

There  are  no  implementation-dependent  attributes. 


3.  Specification  of  the  Package  SYSTEM 

package  SYSTEM  is 

type  ADDRESS  is  new  INTEGER; 
type  NAME  is  (BS2000); 

SYSTEM_NAME  :  constant  NAME  :=  BS2000; 

STORAGEJJNIT  ;  constant  :=  8; 

MEMORY_SIZE  :  constant  :=  4000000; 

--  System-Dependent  Named  Numbers : 

MIN_INT  :  constant  :=  -  2147483647; 

MAX_INT  :  constant  :=  2147483647; 

MAX  DIGITS  :  constant  :=  15; 

MAX  MANTISSA  :  constant  :=  31; 

FINE_DELTA  :  constant  :=  2.0**(-30); 

TICK  :  constant  :=  0.0001; 

--  Other  System-Dependent  Declarations 
subtype  PRIORITY  is  INTEGER  range  0  ..  0; 
end  SYSTEM; 


4.  Restrictions  on  Representation  Clauses 

This  version  of  the  Siemens  BS2000  Ada  Compiler  does  not 
support  any  representation  clauses. 

5.  Conventions  for  Implementation-generated  Names 
Denoting  Implementation-dependent  Components  in 
Record  Representation  Clauses 

Implementation-dependent  components  may  be  added  to  record 
objects  by  the  compiler.  These  components  remain 


25 


inaccessible  for  the  user,  i.e.  they  cannot  be  accessed  via 
implementation-generated  names,  in  particular  they  cannot  be 
referred  to  in  record  renresentation  clauses. 


6.  Interpretation  of  Expressions  Appearing  in  Address 
Clauses 

The  present  version  of  the  Siemens  BS2000  Ada  Compiler  does 
not  support  address  clauses. 

7.  Restrictions  on  Unchecked  Type  Conversions 

The  Siemens  BS2000  Ada  Compiler  supports  the  generic  func¬ 
tion  UNCHECKED_CONVERS ION  with  the  following  restriction: 
The  actual  generic  subtype  corresponding  to  the  formal  gen¬ 
eric  type  TARGET  must  not  be  an  unconstrained  array  type, 
and  it  must  not  be  an  unconstrained  type  with  discriminants 
that  have  no  defaults.  The  instances  gained  from 
UNCHECKED_CONVERSION  return  a  target  value  whose  bit  pattern 
is  a  left-aligned  copy  of  that  of  the  source  value.  The 
numbers  of  bits  transferred  corresponds  to  the  size  of  the 
target  subtype.  If  the  size  of  the  source  value  is  greater 
than  the  size  of  the  target  subtype,  then  the  source  value 
information  is  truncated  on  the  right  hand  side,  i.e.  the 
low  order  bits  are  ignored.  If  the  size  of  the  source  value 
is  not  greater  than  the  size  of  the  target  subtype,  then 
again  -  as  many  bits  are  transferred  as  corresponds  to  the 
size  of  the  target  subtype,  and  no  padding  with  zeroes, 
spaces  or  other  characters  is  performed. 


8.  Implementation-Dependent  Characteristics  of  Input-Output 
Packages 

8.1  Conventions  for  NAME  and  FORM 

External  files  are  supported  by  the  SAM,  ISAM,  PAM,  EAM , 
SYSDTA,  SYS OUT  and  SYSLST  BS2000  files  where  the  value  of 
the  parameter  FORM  determines  which  access  method  is 
selected . 

The  set  of  allowable  values  of  FORM  is  given  below 
together  with  the  type  of  the  BS2000  file  corresponding 
to  it.  Leading  blanks  and  lower  case  letters  are  not  allowed 
in  the  FORM  string. 


value  of  FORM  BS2000  access  method 

"SAM"  Sequential  Access  Method 

"ISAM"  Indexed  Sequential  Access  Method 

"PAM"  User  Primary  Access  Method 
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"EA.M"  Evanescent  Access  Method 

"OMF"  The  EAM  file  referred  to  by  the  BS2000  JCT, 

a  s  the  *  file 

"RDTA"  The  file  (or  terminal)  associated  with  SYSDTA 

"SOUT"  The  file  (or  terminal)  associated  with  SYS01JT 

"SLST"  The  file  (or  printer)  associated  with  SYSLST 

Each  input-output  packaqe  operates  upon  a  sub-set  of  the 
allowable  forms. 

SAM,  ISAM  and  PAM  files  are  identified  by  the  value 
of  the  parameter  NAME  of  the  CREATE  and  OPEN  procedures 
whose  characters  must  conform  to  the  BS2000  file  naming 
conventions  as  described  below.  The  value  of  the  parameter 
NAME  is  ignored  for  other  values  of  FORM.  Note  that  the 
ASCII  characters  in  NAME  are  converted  to  EBCDIC  within 
the  packages  for  the  comparisons  with  BS2000  file  and  link 
names . 

The  syntax  associated  with  the  string  NAME  is  as  follows: 


NAME-syntax  : : =  2  link_name^|  file_name 

filename  ::=  $  user_id  .'name  C  .  name  >  | 

$  admin_neme  | 
name  C  .  name  > 

link_nane  ::  =  namc_chor oc t er  C  nsnc_cha r ac t e r  > 

uscr_id  =  name_char  bc  t  c  r  C  namc_clin  r  ac  t  o  r  > 

adr.in_name  ::=  nane_cha r ac t e r  <!  name_char ac l er  > 

nene  ::  =  name_character  C  namo^charactcr  > 

nanc_characUr  ::=  uppe  r  _c  a  s  e_i  c  1 1  cr  |  digit  | 

special _char actor 
speci al_character  ::=  $21- 


BS2000  imposes  the  following  additional  restrictions 
upon  the  syntax  of  a  NAME  string. 

1.  The  maximum  length  of  a  link_name  or  a  user_id  is 
eight  characters  . 

2.  The  maximum  length  of  a  file_name  starting  with  $ 
user_id  is  54  characters. 

3.  The  maximum  length  of  an  admin_name  is  47  characters 
unless  it  contains  one  or  more  periods  in  which 
case  the  maximum  length  is  53  characters. 

4.  The  maximum  length  of  a  file_name  starting  with  name 
is  44  characters  . 


"’he  first  character  of  a  name  must  not  Vie  a 
special  character  and  the  last  character  must  not  he  a 
hyphen . 


A  file  name  must  include  at  least  one  letter. 


8.2  File  management 


This  section  describes  the  implementation  restrictions  which 
apply  to  the  sequential,  direct  and  text  input-output  pack¬ 
ages  equally. 


Th  e  na  x 

external 

records 

stored 

below  st 

limits 


erw i se 


output 
or  bloc 
stored  i. 


imum  number  of  objects  which  may  be  stored  in  an 
file  is  dependent  upon  the  maximum  number  of 
or  the  maximum  number  of  blocks  which  may  be 
in  its  underlying  BS2000  file.  The  values  given 
ate  this  maximum  for  each  FORM  provided  that  the 
imposed  by  the  system  configuration  are  not  oth- 
reached.  For  the  direct  and  sequential  input- 
packages,  each  object  is  stored  in  a  separate  record 
kr  for  the  text  input-output  package,  each  line  is 
n  a  separate  record. 


FORM 


Maximum  Number  of  Records  /  Blocks 


SAM 

ISAM 

PAM 

EAM 

OMF 

ROTA 

SOUT 

SLST 


configuration  dependent  limit 
99  999  999  records 
16~777~215  blocks 
32_767  blocks 
32_767  blocks 

configuration  dependent  limit 
configuration  dependent  limit 
configuration  dependent  limit 


Two  alternative  record  formats 
and  SAM  files,  varying  and 
always  uses  varying  length  records 
SEQUENT IAL_IO  support  both  formats, 
format  is  used  if  an  instance  of  di 
ages  uses  unconstrained  element 
length  record  format  is  used  where 
value  of  ( ELEMENT_TYPE ' SIZE  +  7)  / 
bytes  needed  for  this  special  type) 


are  available  for  ISAM 
constant  length.  TEXT_IO 
whereas  DIRECT  10  and 
A  varying  length  record 
rect  or  sequential  pack- 
types.  Otherwise  a  fixed 
the  length  equals  the 
8  (that  are  the  number  of 


The  maximum  size  of  the  objects  which  can  be  stored  in  an 
external  file  is  restricted.  The  universal  integer  value 
which  results  from  the  application  of  the  SIZE  attribute  to 
every  object  accessed  by  the  package  must  lie  within  a 
range  which  is  dependent  upon  the  FORM  and  whether  constant 
or  varying  size  records  are  being  used.  The  exception 
USE  ERROR  is  raised  if  this  constraint  is  broken. 


■uimw# a*. - j>  .vk r^> r j.  tui ' j *  ,-x \'^r^;~rrr7^\\vjTW wvnxrji  *y*y  \xrj  r?ivrr:-r: 
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FORM 

record  rorm 

tbs  EC 

T  '  S I Z  E 

(bits  ) 

SAM 

constant 

1  .  . 

)  6  3  84 

SAM 

vary i ng 

1  .  . 

16  352 

I  SAM 

constant 

1  .  . 

16  3  2D 

I  SAM 

vary’ nq 

1  .  . 

1 6— 2  88 

PAM 

any  object 

1  .  . 

1  6  304 

EAM 

any  object 

1  .  . 

16  3  04 

OMF 

any  object 

1  .  . 

1  6  384 

RDTA 

va  ry i nq 

1  .  . 

2  032 

SOUT 

varying 

1  .  . 

2  032 

SLST 

varying 

1  .  . 

2  032 

SAM,  ISAM  and 

PAM  files  are  pe 

rnanent 

files 

in  that 

their  lifetimes 

are  independent 

of  the 

BS2000 

tasks  in 

which  they  were 

created.  Permanent 

files  may  be 

closed 

in  one  BS2000  task  and  opened  subse 

quent  1  y 

in  the 

same  or 

another  task  without  loss  of  their 

contents 

(  for 

MODE  = 

IN  FILE  or  INOUT  FILE) 


When  a  SAM ,  ISAM  or  PAM  file  (selected  by  the  value  of 
NAME)  is  opened,  there  is  no  check  that  the  form  of 
the  BS2000  file  corresponds  to  the  value  of  the  FORM 
parameter  of  the  OPEN  procedure.  There  is  also  no  check 
that  the  io-package  opening  a  SAM,  ISAM,  PAM,  EAM,  or  OMF 
file  is  the  same  package  as  the  one  which  created  the 
file.  If  either  of  these  conditions  is  not  valid,  the 
program  may  deliver  unexpected  results. 

EAM  and  OMF  files  may  be  closed  and  reopened  within 
the  same  BS2000  program  without  loss  of  their  contents  (for 
MODE  =  IN_FILE  or  INOUT_FILE).  Only  one  OMF  file  may  be 
created  or  opened  in  each  BS2000  task. 

The  RDTA,  SOUT  and  SLST  files  are  unique  within  a  BS2000 
task.  They  can  neither  be  created  nor  deleted. 


No  assumptions  should  be  made  about  the  way  objects  are 
stored  in  the  various  BS20C0  files  except  as  described 
for  the  TEXT^IO  package.  For  example,  the  mapping  of 
indices  onto  ISAM  keys  may  differ  between  different  versions 
of  the  input-output  oackages.  Several  internal  files  can  be 
associated  with  the  same  external  file  for  reading  only, 
i.e.  if  all  the  internal  files  are  opened  with  mode  IN  FILE. 


8.3  SEQUENTIAL_IO 

The  value  of  the  FORM  parameter  of  the  CREATE  and  OPEN  pro¬ 
cedures  is  restricted  to  SAM,  ISAM,  PAM,  EAM  and  OMF,  with 
SAM  being  the  default  value. 

The  package  SEQUENTIAL  10  cannot  be  instantiated  with 


hWMWW! 


unconstra  i  noi  array  types  and  record  types  / 1  n 
inants  without  defaults. 
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8.4  DIRECT  IO 


rrhe  value  of  the  FORM  parameter  of  the  CREATE  and  OPEN  pro¬ 
cedures  is  restricted  to  ISAM,  PAM ,  EAM  and  OMF,  with  ISAM 
being  the  default  value. 


The  declaration  of  COUNT  reads: 

type  COUNT  is  range  0  ..  INTEGER 1  LAST  ; 

Therefore,  the  value  of  an  index  may  be  set  in  the  range 
1  ..  INTEGER’ LAST. 


The  package  DIRECT_TO  cannot  be  instantiated  with  uncon¬ 
strained  array  types  and  record  types  with  discriminants 
without  defaults. 


8.5  TEXT  IO 


The  value  of  the  FORM  parameter  of  the  CREATE  pro¬ 
cedure  is  restriced  to  SAM  and  ISAM  while  the  OPEN  pro¬ 
cedure  may  use  SLST  add i tiona 1 1 y .  The  default  FORM  parameter 
i s  SAM . 


The  MODE  of  the  SLST  file  is  restricted  to  OUT  FILE. 


The  standard  input  file  has  the  form  RDTA  and  the  standard 
output  file  has  the  form  SOUT. 


ASCII 


characters 


□a ssed 


across 


interface 


to/ from  the  TEXT_IO  package  are  converted  to/ from  EBCDIC 
characters  within  the  TEXT_IO  package:  BS2000  files 
created  and  updated  by  the  TEXT  10  package  contain  EBCDIC 


characters . 


The  declaration  of  COUNT  reads: 
type  COUNT  is  range  0  ..  INTEGER  *  LAST 


The  lines  contained  in  text  files  are  variable  in  length 
in  the  range  1 . . 500  characters:  The  declaration  of  the 
subtype  FIELD  is  given  by: 
subtype  FIELD  is  INTEGER  range  0  ..500  ; 


Lines  are  stored  in  the  2nd  to  501st  character  of  a 
BS2000  variable  length  file  record.  The  first  character  of 
the  record  is  a  printer  control  character  where  ’  ’ 
means  line-feed  and  ’A’  page-feed.  Thus  BS2000  files 
created  by  calls  to  TEXT_IO  can  be  printed  using  the  system 
command  procedure  DO. PRINT  or  displayed  using  the  EDOR  and 
EDT  text  file  editors.  The  printer  control  characters  are 
used  to  implement  the  line  and  page  terminators  and  can 
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be  manipulated  usinq  the  standard  line  and  paqe  control  pro¬ 
cedures  • 


The  input  subprograms  which  either  make  or  do  not  make  a 
test  for  a  paqe  or  file  terminator  are  listed  below: 


Test,  for  a  paqe  or  File 
terminator 
END  OF  FILE 
EM  F)~°F~  PAGE 
SET  LIME 
SKIP  PAGE 


Mo  test  for  a  paqe  or 
file  terminator 
END_OF_LINE 
GET_C11AR 
GET_INT 
GET_LINE 
GET_STRIMG 
SET  COL 


0.6  Low  Level  Input-Output 

Low  Level  Input-Output  as  described  in  chapter  14.6  has  not 
been  implemented. 


9.  Definition  of  a  Main  Subprogram 

A  library  unit  can  be  used  as  a  main  subprogram  only  if  it 
is  a  non-generic  procedure  which  has  no  formal  parameters. 
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APPENDIX  C 


TEST  PARAMETERS 


Certain  tests  in  the  ACVC  make  use  of  implementation- 
dependent  values,  such  as  the  maximum  length  of  an  input 
line  and  invalid  file  names.  A  test  that  makes  us-'  of  such 
values  is  identified  by  the  extension  .TST  in  its  file  name. 
Actual  values  to  be  substituted  are  represented  by  names 
that  begin  with  a  dollar  sign.  A  value  must  be  substituted 
for  each  of  these  names  before  the  test  is  run.  The  values 
used  for  this  validation  are  given  below. 

Name  and_Meaning _  Value _ 

$BIG_ID1  2  39* 1 A 1  &  ’1’ 

Identifier  of  the  size  of  the 
maximum  input  line  length  with 
varying  last  character. 

$BIG_ID2  239* 1 A  1  &  *2' 

Identifier  of  the  size  of  the 
maximum  input  line  length  with 
varying  last  character. 

$BIG_ID3  120* ' A ’  &  ’3'  &  119*'A' 

Identifier  of  the  size  of  the 
maximum  input  line  length  with 
varying  middle  character. 

$BIG_ID4  120*  '  A '  £■  '4'  Sc  119*'A 

Identifier  of  the  size  of  the 
maximum  input  line  length-  with 
varying  middle  character. 

$BIG_INT_LIT  237* ’0‘  &  "298" 

An  integer  literal  of  value  298 
with  enough  leading  zeroes  so 
that  it  is  the  size  of  the 
maximum  line  length. 

$BIG_REAL_LIT  234*' O'  Sc  "69.0E1" 

A  real  literal  that  can  be 
either  of  floating-  or  fixed- 
point  type,  has  value  690.0,  and 
has  enough  leading  zeroes  to  be 
the  size  of  the  maximum  line 
1 ength . 

$BLANKS  220*'  ' 

A  sequence  of  blanks  twenty 
characters  fewer  than  the  size 
of  the  maximum  line  length. 


119* 'A' 


2  3  7  * ' 0 1  &  "298" 


234 *  ’O'  Sc  "69.0E1 


v 


i 
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SC^ITIT  LAST 

A  uni  versa 


7  147  483  647 


A  universal  inteaer  literal 
whose  value  is  TEXT  I O. COUNT  1  LAST . 


^EXTENDED  ASCII  CHARS 

A  string  literal  containing  all 
the  ASCII  characters  with 
printable  graphics  that  are  not 
in  the  basic  55  Ada  character 


"  "  abed e  f gh  i  j V.  1  rnnopq  r  s  tuvwxy  z "  & 
a  s  c  i  i  .  e  x  c  1  a  m  s< 
ascii  .  do  liar  & 
a sci  i -percent  & 
ascii  .query  f< 
ascii. at  sign  & 
ascii .r  bracket  A 
asci i .back_sl ash  A 
ascii.  1  bracket  A 
ascii  .circurnfl  ex  A 
ascii • grave  A 
asci i . I  brace  a 
ascii .r_brace  A 
asci  i  .  ti lde  A  '  " ' 


$FIELD_LAST 

A  universal  integer  literal 

whose  value  is  TEXT  10.  FIELD’ LAST. 


$FILE_NAME_WITH_BAD_CHARS 

An  illegal  external  file  name 
that  either  contains  invalid 
characters,  or  is  too  long  if  no 
invalid  characters  exist. 


BAD  FILE  NAME 


$  F I L  E_N AM E_W I TH_W I LD_C A  R  D_CH A  R 
An  external  file  name  that 
either  contains  a  wild  card 
character,  or  is  too  long  if  no 
wild  card  character  exists. 


WILD* FILE* NAME 


S GREATER  THAN  DURATION 


131  071.5 


A  universal  real  value  that  lies 
between  DURATION ’ BASE ' LAST  and 
DURATION ' LAST  if  any,  otherwise 
any  value  in  the  range  of 
DURATION. 


$GREATER_THAN_DURATION_BASE_LAST 

The  universal  real  value  that  is 
greater  than  DURATION ' BASE ' LAST , 
if  such  a  value  exists. 


200  000.0 


$ I LL  EG AL_EXTERNAL_F I LE_N  AME 1 

An  illegal  external  file  name 


BAD  FILE  NAME 


? I LL EGAL_EXTERNAL_FILE_NAME 2 

An  illegal  external  file  name 
that  is  different  from 
$  ILLEGAL  EXTERNAL  FILE  NAME1  . 


MUCH-TOO-LONG-FOR-A-CORRECT- 

BS2000-FILE-NAME 
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S  I  NTEOER_FTRST 

The  uni  versa]  intcaer  literal 
expression  whose  value  is 
INTEGER  ’  FIRST. 


-2147  483  647 


$ INTEGER_LAST 

The  universal  integer  literal 
expression  whose  value  is 
INTEGER* LAST. 


2  147  483  647 


$  LESS  THAN_DURAT TON 

A  universal  real  value  that  lies 
between  DU RATIOS' '  BASE  '  FIRST  and 
DURATION ' FIRST  if  any,  otherwise 
any  value  in  the  range  of 
DURATION. 


-131  071.5 


$I,ESS_  THAN_DURATI0NJ3ASE_FIRST 

The  universal  real  value  that  is 
less  than  DURATION  *  BASE ' FIRST, 
if  such  a  value  exists. 


-200  000.0 


$MAX_DIGIT5 

The  universal  integer  literal 
whose  value  is  the  maximum 
digits  supported  for 
floating-point  types. 


$MAX_IN_LEN 

The  universal  integer  literal 
whose  value  is  the  maximum 
input  line  length  permitted  by 
the  implementation. 


$MAX_INT 

The  universal  integer  literal 
whose  value  is  SYSTEM. MAX  INT. 


2  147  483  647 


$NAME 

A  name  of  a  predefined  numeric 
type  other  than  FLOAT,  INTEGER, 
5H0RT_FL0AT,  SHORT_INTEGER, 
LONG_FLOAT,  or  LONG_INTEGER 
if  one  exists,  otherwise  any 
undefined  name. 


long  long  integer 


$NEG_BASED_INT 

A  based  integer  literal  whose 
highest  order  nonzero  bit 
falls  in  the  sign  bit 
position  of  the  representation 
for  SYSTEM. MAX  INT. 


8#37777777776ff 


10N_ASCI  I_CHAR_7YPF. 

An  enumerated  type  definition 
for  a  character  type  whose 
literals  are  the  identifier 
NON  NULL  and  all  non-ASCII 
characters  with  printable 
q  raph i c  s . 


( non  nul 1 ) 


APPENDIX  D 


WITHDRAWN  TESTS 


Some  tests  ire  withdrawn  from  the  AC VC  because  they  do  not 
conforn  to  the  Ada  Standard.  The  following  19  tests  had  been 
withdrawn  at  the  time  of  validation  testing  for  the  reasons 
indicated.  A  reference  of  the  form  "Al-ddddd"  is  to  an  Ada 
Commentary . 

.  C32114A:  An  unterminated  string  literal  occurs  at  line 

62. 


B33203C:  The  reserved  word  "IS"  is  misspelled  at  line  45. 

C34018A:  The  call  of  function  G  at  line  114  is  ambiguous 
in  the  presence  of  implicit  conversions. 


C35904A:  The  elaboration  of  subtype  declarations  SFX3  and 
SFX4  may  raise  NUMERIC_ERROR  instead  of  CONSTRAINT_ERROR 
as  expected  in  the  test. 


B37401A:  The  object  declarations  at  lines  126  through  135 
follow  subprogram  bodies  declared  in  the  same  declarative 
part . 


C 4 14 04 A :  The  values  of  'LAST  and  'LENGTH  are  incorrect  in 
the  if  statements  from  line  74  to  the  end  of  the  test. 


B45116A:  ARRPRIBL1  and  ARRPRIBL2  are  initialized  with  a 
value  of  the  wrong  type  --  PRIB00L_TYPE  instead  of 
ARRPRIBOOL_TYPE  —  at  line  41. 

C40008A:  The  assumption  that  evaluation  of  default  ini¬ 
tial  values  occurs  when  an  exception  is  raised  by  an 
allocator  is  incorrect  according  to  AI-00397. 

B49006A:  Object  declarations  at  lines  41  and  50  are  ter¬ 
minated  incorrectly  with  colons,  and  end  case?  is  missing 
from  line  42. 


B4A010C:  The  object  declaration  in  line  18  follows  a  sub¬ 
program  body  of  the  same  declarative  part. 


1 


a 


a 


a 


a 


a 


B741013:  The  begin  at  line  9  causes  a  declarative  part  to 
be  treated  as  a  sequence  of  statements. 

C87B50A:  The  call  of  ”/="  at  line  31  requires  a  use 
clause  for  package  A. 


3 


3 


a 


>  v«  *  '  V-  *.*  V  *>  V  "J1  ’  »  V  W***'  j'  ■'VO  O  O  O  O  m>  iv  O  W>  A  J*  .>  o  »*•  .N 


fli 


-  3  6  - 


C92005A:  The  "/  =  "  for  type  PACK.BTG_INT  a  t  line  40  is  not 
visible  without  a  use  clause  for  the  package  PACK. 

C940ACA:  The  assumption  that  allocated  task  TT1  will  run 
prior  to  the  main  nroqram,  and  thus  assign  SPYTUMB  the 
value  checked  for  by  the  main  program,  is  erroneous. 

CA3005A..D  (4  tests):  No  valid  elaboration  order  exists 
for  these  tests . 


BC3204C:  The  body  of  BC3204C0  is  missing. 


